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0001 title "RMSCHECKB = Check a File Structure’ 

$008 module rmscheckb 

B98 1 ident="V04-000') = begin 

004 1 

0005 1! 

sie : ee cas “then “Geer” von 12 En 
® 

0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 . 

0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARB. MASSACHUSETTS. * 

oY : 7 ALL RIGHTS RESERVED. + 
it ® 

Bei ¢ 1 te mis SOF TWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFIWARE OR ANY OTHER * 

0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTH HERWISE MADE AVAILABLE TO ANY * 

0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

id FA : 7? TRANSFERRED. * 
‘® * 

0019 1 !« = INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0020 1 !« SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

O053 : © CORPORATION. * 
it ® 

0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

o95¢ : © SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
it * 

0026 1 !# * 

0027 1 VeRO RRR RARER ARERR ARETE EATER AAA AERRERRARRERAERERE REE EEE 

0028 1! 

0029 1 

0030 1 !++ 

4 ' Facility: VAX/VMS Analyze Facility, Check a File Structure 

0033 1 ! Abstract: This module is responsible for soech ing the structure of 

0034 1! an RMS file as requested via /CHECK t also prepares a 

0035 1! report of the results. 

0036 1! 

0037 1! F 

0038 1 ! Environment: 

0039 1! 

Baeg : : Author: Paul C. Anagnostopoulos, Creation Date: 5 August 1981 

nk 1 ! Modified By: 

0043 1! 

0044 1! V03-004 DGB0048 Donald G. Bla 06-May- 1984 

0045 1! Fix condition handling. - nALY ZAMS returns the correct 

0046 1! error status a aone se Cha condition handler 

Boot : from ANLSCONDITION® ANDLER’ to ANL UNWIND HANDLER. 

0049 1! v03-003 PCA1011 Paul C. Anognostopeulos 11-Apr-1983 

0050 1! Change the message prefix to ANLRMS$_ to ensure that 

0051 1! message symbols are unique across att ANALYZEs. This 

O08 : is necessitated by the new merged message files. 

0054 1! v03-002 PCA1001 Paul C. Anagnostopoulos 5-Nov-1982 

B02 ; Add code to support the new /SUMMARY mode. 

0057 1! v03-001 PCA0062 Paul Anagnostopoulos 29-Mar-1982 
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_v04-000 Module Declarations 1a-sep-19 4 90:93:80 ANALYZ.SRC RAS CMECKB 692: 1 es (23 
t $? 896 ! Rsbttl ‘Module Declarations’ 
13 Fy Bee : : Libraries and Requires: 

.. oF 0066 1 : 

; «68 Boos 1 Library ‘Lib’; 

3 4 Bese ! require ‘rmsreq'; 

; 0578 1! 

3 4 ta44 : Table of Contents: 

; 7 p28! 1 e 

; 05 ; 1 forward routine 

a 0585 1 anl$idx_check: novalue 

3 a 0984 anl$idx-check_key_stuff: novalue; 

, 0586 1! 

3 $9 £4 $4 ! : External References: 

; 82 0589 #1 

; #83 0590 1 external routine 

; «84 0591 «+1 anl$area_descriptor, 

; §5 0296 1 anl$area_statistics, 

, 8 593 1 anl$bucket, 

; 6€6Gf 0594 (1 anl$2bucket_header, 

; 88 0595 1 anl$3bucket_header, 

;  «€68Y 0596 1 anl$format_error, 

; 0597 #1 anl$format_Line, 

a; 9 0598 #1 anl$format_skip, 

; 92 0599 #1 ant$idx_prolog, 

- . 0600 1 anl$2index_record, 

i; (94 0601 1 anl$Sindex_record, 

. 0602 | anl$key_descriptor, 

; 6496 0603 1 anl$key_statistics, 

; «97 0604 1 anl$unwind_handler, 

; w 0605 1 anl$2primary_data_record, 

; Ww 0606 1 anl$3primary data_record, 

: 100 0607 1 anl$prolog_checksums, 

: 101 0608 1 anl$5reclaimed_bucket_header, 

; 106 0609 1 anl$2sidr_record, 

; 10 0610 1 anl$3sidr_record, ; 

: 10 boll \ LibSestabTish: addressing_mode(general); 

3: 106 Bet8 1 external 

; 107 614 1 anl$gb_mode: eye 

> 108 0615 1 anl$gl7tat: ref blockl.bytel, 

; 4 pets : anl$gw_prolog: word; 

. 3 0618 1! ; 

3 \\§ +984 ! : Own Variables: 
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Oe 1 ! Febeet "ANLSIDX_CHECK = Check Structure of Indexed File’ 
6 : 1 | Functional Description: 
0624 1! This routine is responsible for checking the structure of an 
ge ‘ : } indexed file, as requested by /CHECK mode. 
06 1 i It is also responsible for producing the statistics requested 
0628 1! by /StATISTICS mode. This to done i a superset of VEHE CK mode, 
be 2 : so the structure gets checked while the statistics are done. 
0631 | Formal Parameters: 
! non 
C8 | eeenpala: 
! Implicit Inputs: 
ot F ' global data 
b639 1 i Implicit Outputs: 
ots : } global data 
0640 1 | Returned Value: 
eae. : } none 
Oeés Side Effects: 
0645 1 i-- 
0646 1 
0647 1 
bets 3 global routine anl$idx_check: novaiue = begin 
SHG Calpers 
p: Ss Cc: sd, 
bees Sp: ref block(, byte], 
be ? 2 area_count: long, 
0655 $ areas _vector: vector(256,bytel], 
bees § another: byte; 
0658 2 
¥t44 2 ! Establish the condition handler for drastic structure errors. 
Ree) ; LibSestablish(anl$unwind_handler); 
vet ! First we want to check the checksums in the prolog blocks. 
Roe? anl$prolog_checksums(); 
0667 ! Now we can read in the first prolog block and check the fixed portio 
bees ! of the prolog. , . _* “i 
0670 init_bsd(p); 
4 pt bsdsw.siz siz¢) BAL 
0673 PrtibecRe ete. 0);° 
bere anl$format_skip(0); 
067 anl$format_skip(0); 
067 anl$idx_prolog(p,true,0); 
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0678 
+244 : Now we will check all of the area descriptors, because they describe the 
bene ! basic structure of the file. Read in the first descriptor. 
poes sp = .pCbsd$l_bufptr); 
068 area_count = “sp(plg$b amax); 
BSS § SERSan tnd sczepecosbsson 
0686 anl$bucket(p,0); 
0688 ! Now we will loop through each area descriptor. As we go, we build up 
+494 ! the areas vector, which tells us the bucket size for each area. 
0691 init_bsd(c); 
Bo6 ; chSfTLL(%x'O0", 256,areas_vector); 
Ree ; incru id from 0 to .area_count-1 do ( 
0696 ; ! Copy the BSD sooee tb ing the area descriptor into another one, because 
+44 ; ! the analysis routine will advance to the next descriptor. 
53.44 ; copy_bucket(p,c); 
0701 3 : Analyze the descriptor for validity. This will advance the BSD on 
4 ; ! to the next one, telling us if it exists. 
0704 3 anl$format_skip(0); ; 
$444 ; anl$area_descriptor(p,.id,true,0); 
1444 3 ! Put the bucket size into the areas vector. 
0709 3 sp = .cCbsd$l_bufptr) + .clbsd$l_offset]; 
Bray 3 areas_vector(.id] = .splarea$b_arbktsz]; 
0712 3 ! Now we will check any reclaimed buckets on the available List. 
07135 3 ! If we are running in /SUMMARY mode, however, then user is not 
0714 3 ! interested in spending the time to read through the file. 
Be ; ! Using the C BSD, get the first bucket and then loop through them. 
0717 4 if .anl$gb_ mode nequ onl. puasary and .spLarea$l_avail] nequ 0 then ( 
gris 4 chbsdéu_sized = ,splarea$b_arbktsz]; 

719 4 cCbsd$l_vbnj] = .splarea$l_availj; 
gre) ? anl$bucket(c,0); 
0738 4 while anl$3reclaimed_bucket_header(c,false) do; 
bye 3 : hace ee 
0725 ! If we are operating in statistics mode, we now call a routine 
0726 ' to print the statistics that have been accumulated about this 
143 ' area. 
3444 if .anl$gb_mode eqlu anl$k_statistics then 
Bray - anT$area_statisticS(.id); 
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! Now we are going to analyze the key descriptors. Begin by setting up a 
! BSD and reeding in the first one. : . . . 


p(bsd$l_vbn) =_1; 
plbsd$l_offset]) = 0; 
anl$bucket(p,0); 


! Now loop through, analyzing each one. 
incru id from 0 do ( 


Copy : | 
! analysis routine will advance to the next one. 
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the BSD describing this key into another one, because the 


copy_bucket(p,c); 


! Analyze the descriptor for validity. This will advance on to the 
! next one, telling us if there is a next one. 


hey af deni ; P 
another = anl$key_descriptor(p,.id,areas_vector,true,0); 
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; 

3 ! Now we want to check the complete index and data structure for 
3 ! this key. We can skip it if the index is uninitialized. Also, 
3 ! if we are running in /SUMMARY mode, then the user is not interested 
; ! in spending the time to read through the file. 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
; 
é 
2 
é 
1 


PONIPOPENoNoPofonononono nono nononoferonononofenonopofonopofoneny 
MEW O OONAUE WN O OONAOU EWN" OOONOUFW FO 


APAEMAMAMAMNAM MAMIE BEEP ELE 
AQOOCOOCOCOCOOC GCC O COC OCOOC OOOO OCOCOOCO COCO OCOCOOOCOOOCOOOOCOOOOOOO FrwD 


75 
| 75 sp = .cCbsd$l_bufptr] + .clbsd$l_offset); gees 
76 if .anl$gb mode nequ anl$k_summafy and not osoCkeySu_inis idx) then 
| . anTSidx_check_key_Stuff(.splkey$l_rootvbnJ,c,.splkey$b_rootlev]); 
76 ! If we are operating in statistics mode, we now call a routine 
Sg a print the statistics that have been accumulated about this 
! key. 
766 
26 767 if .anl$gb_mode eqlu anl$k statistics then 
263 768 anT$key_statisticstc); 
264 769 : 
tH ny ! If that was the last key descriptor, we're done. 
267 772 exitif (not .another); 
268 773 ; 
269 774 
270 775 anl$bucket(p,-1); 
e71 776 anl$bucket(c,-1); 
272 777 
273 778 return; 
274 779 “ 
275 780 end; 
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ANLRMS$~CHECKHD 
XTRN ANLRMS$— CONTIG 
XTRN ANLRMS$~CTLSIZE 
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ANLRMS$_CREATION 


FILEMD 
EXTRN pn: “FILEID. ANLRMS$_F ILEORG 
EXTRN ANLRMSS_FILESPEC 
EXTRN ANLRMS$~ FLAG, ANLRMSS$_ GLOBALBUF S 
TEXTRN ANLRMSS"HEXDATA 
TEXTRN ANLRMSS-HEXHEADING!1 
“EXTRN ANLRMS$~ HE XHEADING2 
[EXTRN ANLRMS$~IDXAREA 
TEXTRN ANLRMS$~IDXAREAALLOC 


.EXTRN ANLRMS$~IDXKEYDATAVBN 
SEXTRN ANLRMSS~IDXKEYEF ILL 
ZEXTRN ANLRMSS$~IDXKEYFLAGS 
SEXTRN ANLRMSS$~IDXKEYKEYSZ 
-EXTRN ANLRMS$~IDXKEYNAME 
-EXTRN ANLRMS$~IDXKEYNEXT 
-EXTRN ANLRMS$~IDXKEYMINREC 
-EXTRN ANLRMS$~IDXKEYNULL 
-EXTRN ANLRMS$~IDXKEYPOSS 
-EXTRN ANLRMS$~IDXKEYROOTLVL 
TEXTRN ANLRMSS_IDXKE ROOT VBN 
SEXTRN ANLRMSS$~IDXKEYSEGS 
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-EXTRN ANLRMSS$_ tft fan $4 a 
XPRIMRECID 


“EXTRN ANLRMS ~IDXRECS ANLRMS$_IDXRECPTR 
TEXTRN ANLRMS$~IDXSID 

EXTRN ANCRMS$71DXS 1 DROUPCNT 
SEXTRN ANLRMS$~IDXSIDRFLAGS 
“EXTRN ANLRMS$~IDXSIDRREC 
TEXTRN ANLRMS$_IDXSIDRPTRFLAGS 
SEXTRN ANLRMS$~IDXSIDRPTRR 
TEXTRN ANLRMS$_INTERCOMMAND 
“EXTRN ANLRMS$S_INTERHDG 

SEXTRN ANLRMS$~LONGREC 

“EXTRN ANLRMS$_MAXRECSIZE 
“EXTRN ANLRMSS~ 


Pp 
EXTRN ANLRMS$_NOEXPIRATION 
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-EXTRN ANLRMS$— Alte jAnLRass BADCMD 
-EXTRN ANLRMS$_BAD 

~EXTRN ANLRMSS_ “BADEN, ANLRMS$_DOWNHELP 
-EXTRN ANLRMS$~DOWNPATH 

~EXTRN ANLRMSS— PRP YBKT 

-EXTRN ANLRMSS$_NODATA, ANLRMS$_NODOWN 
-EXTRN ANLRMSS$_NONEXT, ANLRMS$_NORECLAIMED 
-EXTRN ANLRMS$_NORECS, pg LANES NORRV 
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DATARECCOMP 


M 
ANLRMS$_ BADDATARE CP 
ANLRMS$_BAD3IDXKEYF 
ANLRMS$_BADIDXLASTK 
ANLRMSS~ Deb ibentcel 
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ANLRMS$_BKTLOOP 
ANLRMSS$_EXTENDERR 
ANLRMS$_FLAGERROR 
ANLRMS$_MISSINGBKT 
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«EXTRN ANLRMS$_ Texte tome 

eEXTRN ANLRMS$S FACILITY 

~EXTRN ANLSAREA_DESCRIPTOR 

«EXTRN ANLSAREA STATISTICS 

-EXTRN ANLSBUCKET, ANL$2BUCKET_HEADER 

“EXTRN ANLS BUCKET EADER 


XTRN Aa ORAL 
DX PROLOG, fn. SINDEN. RECORD 


-EXTRN ANLSPROLOG_CRECKSOMS 

~EXTRN ANESSR RECLAIMED_BUCKET_HEADER 
-EXTRN ANL$2SIDR_RECORD 

.EXTRN ANLS$3SIDR-RECORD 

-EXTRN LIBSESTABCISH, ANL$GB_MODE 
-EXTRN ANLSGL_FAT, ANLSGW_ PROLOG 


-PSECT $CODES,NOWRT,2 


| 
| 
| 
| 07FC 00000 ENTRY eres CHECK, Save R2.R3,R4,R5,R6,R7,R8,- ; 0648 
| SA 00006 CF 9E 00002 MOVAB  ANL$GB_MODE, R10 ; 
59 00006 CF 9€ 00007 MOVAB ANLSFORMAT SKIP, R9 : 
58 00006 CF 9E 9000¢ MOVAB — ANLSBUCKET ; 
Se FEDO CE 9€E 0001 MOVAB =304(SP), : 
| 00006 CF 9F 00016 PUSHAB ANLSUNWIND HANDLER : 0661 
000000006 00 01 FB OO01A CALLS #1, LIBSESTABLISH 3 
00006 CF 00 FB 90021 CALLS #0. ANLSPROLOG_CHECKSUMS : 0665 
18 6E 00 2C 00026 MOVCS #0, (SP), #0, B24, P : 0670 
E8 AD 00028 ; 
EA AD 01 80 00020 woo, P42 : 0671 
EC AD 01 00 00031 MOVL #1, P+4 : 0672 
| 7E b4 00035 -(§P) : 0673 
E8 AD 9F 00037 PUSHAB P ; 
68 02 FB 0003A CALLS #2, ANLSBUCKET ; 
7E D4 00030 CLRL. = (SP) : 0675 
| 69 01 FB 0003F CALLS #1, ANLSFORMAT_SKIP ; 
7E D4 00042 CLRL. 0s = (SP) : 0676 
| 69 01 FB 00044 CALLS #1, ANLSFORMAT_SKIP 
7E 01 7D 00047 MOVa #1. =(SP) : 0677 
| E8 AD 9F OO04A PUSHAB P 
00006 CF 03 FB 0004D CALLS #3, ANLS$IDX_PROLOG 
| 57 F4 AD DO 00052 MOVL : P ; 068 
56 67 A? 9A 00056 MOVZBL 103(SP), AREA_COUNT : 068 
EC AD 66 AZ 9A O009A MOVZBL 102(SP). P+4 : 0684 
FO AD D4 0005F CLRL so P#8 : 0685 
7E D4 00062 CLRL = (SP) ; 0686 
E8 AD 9F 00064 PUSHAB P ; 
68 02 FB 00067 CALLS #2, ANLSBUCKET ; 
18 00 oe 00 2C 0006A movcS #0. (SP), #0, #24, C : 0691 
DO = AD 0006F 3 
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#0, (SP), #0, #256, AREAS_VECTOR 


R6 

D 

$ 

e 

F+8, T+8 
F+26, 1420 
=(SP5 


T 

#2, ANLSBUCKET 

#1, ANLSFORMAT_SKIP 
1, =(SP) 


Pp 
ree ANLSAREA_DESCRIPTOR 


cr C+12, § 
(SP) AREAS _VECTORC ID] 


ANL$GB_MODE. 

(SP) 

$ 
3(SP), C+2 
B(SP); C44 
= (SP) 
#2, ANLSBUCKET 
-(§P) 


C 
2, ANLS$3RECLAIMED_BUCKET_HEADER 
ANL$GB_MODE, #4 


, ANLSAREA_STATISTICS 


. 
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we 

v 

~v 
+ 
= 


. ANLSBUCKET 
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AMSCHECKB RMSCHECKB = Check a File Structure 1 see =-1984 90: 91 a4 AX-11 Bliss-32 V4.0-7 
v04-000 ANLSIDX_CHECK = Check Structure of Indexed File 14-Sep-1984 3:00 ANALYZ. SRC JRMSCHECKB. 3 2:1 
53 50 90 00129 MOVB RO, ANOTHER 
57 oc AD D8 AD I 01 ADDL3 C+ C+12, SP 
05 6A 91 001 CMPB pe _MODE, #5 
14 13 001 BEQL 
OF ww kf 04 0 00137 BBS 16(SP) 
7E 09 A? 9A 0013C MOVZBL Scép). sh35,78 
DO AD 9F pette PUSHAB 
OC A? DD 0014 PUSHL 8% 
0000v CF 03 FB 00146 CALLS u ANLSIDX. a KEY_STUFF 
04 6A 91 00148 7$ CMPB ANL$GB MODE? 
08 12 0014 BNEQ 8$ 
DO AD 9F pete PUSHAB C 
0000G CF 01 FB 0015 CALLS #1, ANLSKEY_STATISTICS 
04 53 €9 00158 8$ BLBC ANOTHER, 9$ 
52 06 00158 INCL 
9E 11 00150 BRB 6$ 
7E 01 CE OO1SF 9$ MNEGL #i, (SP) 
—E8 AD 9F OO 168 PUSHAB 
68 02 FB 0016 CALLS #2, ANLS$BUCKET 
7E 01 CE 00168 MNEGL #1, -(SP) 
DO AD 9F 0016B PUSHAB C 
68 02 FB OO16E CALLS #2, ANL$BUCKET 
04 00171 RET 


; Routine Size: 370 bytes, Routine Base: $CODE$ + 0000 
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v04-000 ANLSIDX_CHECK_KEY_STUFF = Check Structure of In 14-Sep-1984 11:53:00 ANALYZ.SRCIRMSCHECKB.B32;1 (5) 
3 a Ore ! ¥sbttl *ANLSIDX_CHECK_KEY_STUFF = Check Structure of Index & Data’ 

: 279 07 g 1 | Functional Description: 

; 280 ree 1% This routine is called to check the structure of the index and 

; 281 0785 1! data buckets for a key. It scans the index entries and data 

: seg Bree ! records in order, checking for structural flaws. 

; 284 0788 1! It is a requirement of this routine that it visit each bucket 

>; «285 0789 1! exactly once. This is because the routine is also used to collect 

3 oe] or oy ’ statistics about the key. 

: 288 bre 1 | Formal Parameters: 

; 289 0795 1! von The VBN of the index bucket to be checked. On first 

: 290 0794 1! call, this is the root bucket. On recursions, it is 

> 291 0795 1! some lower-level index bucket. | 

: 292 0796 1! key_bsd Address of BSD for the key descriptor. 

: Sor 4444 : : level The alleged level of this index bucket. 

3 295 0799 1. Implicit Inputs: 

: $38 ttt : global data 

: 298 0802 1: Implicit Outputs: 

: 45 44 ; global data 

: 4 baoe : Returned Value: 

3 ! non 

303 0807 1 | , 

3 ied Rane ' Side Effects: 

: 306 0810 1 i-- 

; 307 0811 1 

; 508 pate 1 

3 340 Oaiz § global routine anl$idx_check_key_stuff(vbn,key_bsd, level): novalue = begin 

3 baie 9 ine 3 © antles peakie outa idle ones 

3 rolog_3 = .anl$qw_prolog eqlu c_ver_3, 

; $i + ; f = bey sd: bsd: r Meats 10 

: 315 0819 2 own 

3 31$ ba59 § bucket count: signed long, 

: 318 082¢ 2 aa 

3 19 082 local 

5 $9 baS¢ kp: ref block(€.bytel], 

; 1 0825 hp: ref block{,bytel, 

; 356 0826 rp: ref block(l, byte], 

: $52 Base yes ret block(,bytel, 

> 325 th another_record: byte, 

: 358 ttt down_vbn: long; 

: 328 083¢ 

; 44 baz ! we will be referencing the key descriptor throughout this routine. 

: 331 0835 kp = .kCbsd$l_bufptr]) + .kCbsd$l_offset); 

: 333 0837 ' We have to do some initialization based upon whether this is the root 
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! bucket or not (i.e., on the first call). 
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=> 
oO 
fo Je) 
Ww 
fo] 


5 0839 

8 geet if .level eqlu .kplkey$b_rootlev] then ( 

8 Oaes 1 We want to detect loops in the bucket structure. To do this, 

9 084 : we will initialize a counter to the maximum possible number 
40 0844 ! of buckets that can appear for this key. If the count ever 
ry Baca ! goes to zero as we read a bucket, we're in trouble. 

rk 0847 bucket_count = _ eaten fatCfat$Sl_hiblk] / 

rf} rk minu(. kpLkey$ _idxbktszJ, kplkey$b_datbktszJ); 
rk OBS ! We will be scanning all of the data buckets for this key when 
4 pees ! we get down to the lowest-level index buckets. Let's build a 
48 8 26 ! BSD for scanning these buckets now, and leave it around during 
49 85 ! all recursive calls. 
$29 0854 Se 

51 0855 init_bsd(d); 

26 0856 d bsdbu_s ized = skoCkey$b datbktsz]; 

0857 d(bsd$l"vbn] = .kplkey$l_TdvbnJ; 

54 0858 anl$bucket (d,.kibsd$l_vbnJ); 

55 0859 3 
356 0860 ); 
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EC 

| Sea%e by setting up a BSD for the index bucket we are to check. Read in 
the bucket and set up a pointer to the header. 

i 

b 


bsd(b); 
dow. size] = .kplkey$b_idxbktsz]; 


a ete 
burr esast’ batotrd: 


' Decrement the count of possible buckets. If it goes to zero, then 
i there is a loop in the index structure. 


init 
bibs 
blbsd$l_vbn 5 ,ywbns 
anl$b 
hp = 


if decrement(bucket_count) lss 0 then ( 
anl$format_é@rror(anirms$_bktloop,.vbn,.kpLkey$b_keyref]); 
signal (anTrms$_unwind); 


C 
x 
! Now we want to check the integrity of the bucket header. The routine 
i we call will update the BSD to describe the next bucket in the chain. 
i We don't want this, so we use a copy of the BSD. 
begin 
letat 
h: bsd; 
; 
; 
3 
; 


init_bsd(h); 

copy. sbucket (b, ed, 

if prolog_3 t 

Ori sibucket cheader(h, .kpCkey$b_keyref),.kplkey$v_dupkeys],.level,false) 


anl$2bucket_header(h,(if .tevel eqlu 1 then .kplkey$b_ janund 
else .kpCkey$b_ianum]),.level,false); 


els 


anl$bucket(h,-1); 
end; 


! Now we can check the root bucket bit in the header to make sure it is 
i correct. if not, we better just forget it. 


if .level \ eeiy skeCheySb, rootlev] xor .hplbkt$v_rootbkt] then ( 
format_errortanirms$_badbktrootbit, b{bsd$l_vbnJ); 
Sienel (anTrms$_unwind) ; 
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40 090 ! We are ready to scan the index records in this bucket. Set up the 

40 0905 ! BSD to point at the first one. The work longword will count them as 

tee 84 i we go. 

406 08 bldsd$l_offset] = bkt$c_overhdsz; 

407 blbsd$l“work] = 0; 

408 

409 do ( 


: Save a pointer to the index record to be checked on this iteration. 
! In the case of prolog 3, we also need a pointer to the VBN in the 
i VBN List at the end of the bucket. 


rp = tea gle bufptr] + .blbsd$l_offset]; 
if prolo 
a's (, *oLbsd$t -endptrj-4) = (.b{bsd$l_work]+1) * (.npibkt$v_ptr_szJ+2); 


' Now we call a routine to analyze the index recere, which will 
i cause the BSD to be updated to the next record. A flag is returned 
! to tell us if there is another record. 


another_record = (if prolog_3 then anl$3index_record 
else anl$2index_record) (b,k,false); 


! We need to extract the bucket pointer from this index record, 
i We also want RP to point at the actual key, which is already 
! the case for prolog 3. 


if eroieg,? 3 then 


WWWAWNAWAANWIAINPIPOPININININININ 2 OO Oe ne es "OO 


_vbn = (case ehoCbk t8y ogr sz] from 0 to 2 of set 
C0): -vpl0,0716,0); 
C1): VBE D0. g8 Bi 
C2): -vpl0,0,52,0); 
tes) 


else ( 


ee ee ee ee ee ee ee ed et et ol et et et et et et et et et et et et et et et 


WNW AAWWIWIononofononononony) 2 2 2 ew ow 
DNAULSWN —"O OONAUES WN SOV ONOUSWwh oO 


0940 down_vbn = (case rol inesy prrsz) from 0 to 2 of set 
439 0941 (0): -fpll.0,16,0); 
440 094 C1): eS eo te 
441 094 beat -rplt,0,32,0); 
te 0948 Ci ef ] + 3; 
rp = .rp + .rp B. v ‘ ptrsz + 
444 0946 ); 


oun 
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ls $t$ 0947 : Now we want to analyze the bucket that the bucket pointer 
; 44 Boe ! referenced. 
3; 448 94 
(3) («449 095 if .level gequ 2 then 
/3; 450 0951 emo 
; 451 O32¢ ! This index entry references a deeper index bucket. 
E t26 Baez ! Recurse to analyze the new index bucket. 
|; 454 0955 antSidx_check_key_stuff(.down_vbn,k,.level-1) 
> 4455 0956 
; 456 0957 4 else ( 
; 457 0958 4 
; 458 0959 4 : It references a data bucket. We want to read the data 
; 459 0960 4 ! bucket and check it. However, it is possible that some 
> 460 0961 4 : data buckets exist between the Last one we checked : 
3; 461 0962 4 ! and this new one (for example, if a bunch of SIDR duplicates 
; 188 0963 4 1 take more than one bucket to store). So let's read ar 
; 46 0964 4 ! check all buckets up to and including this new one. 
; 464 0965 4 : 
> 465 0966 4 bind - 
; 466 0967 4 highest_key = hovel eqlu 1 and 
3 467 0968 4 ehpCbkt$v_lastbkt] and 
> 468 0969 4 not .another_record : byte; 
; 469 0970 4 Local 
; 470 0971 4 r: bsd, 
3 («471 0972 4 another_bucket: byte; 
: 47 0973 4 
; 467 0974 4 
3 474 0975 4 ! Now we go into a loop, once through for each bucket we 
s 4675 0976 4 ! want to check. 
; 476 0977 4 
s 477 0978 4 init_bsd(r); 
; «478 0979 4 
3; 479 0980 5 Loop ( 
; 480 0981 5 
> «481 0982 é local 
3; 482 0983 hp: ref block(,bytel; 
3; «483 0984 5 - 
3 484 0985 5 ! We want to check the header of the bucket. This 
3; 485 0986 5 ! will update the BSD to describe the next bucket. 
; 486 0987 5 ! Make a copy of the BSD before so we can get at 
3 487 0988 5 ! the bucket contents below. 
; «4488 0989 5 
; 489 0990 5 =. copy bucket(d,r); | 
; 490 0991 6 ‘ another_bucket = (if prolog 3 then 
; 491 0992 6 “ an SSbucket_header(d, .kplkey$b_keyret] 
3 492 0993 6 -kpl ey$v_dupkeys],0, false) 
; 493 0994 g else 
13 rhs $44 : anl$2bucket_header(d,.kplkey$b_danum],0,false)); 
3 099 : ! Now we want to loop through the data records in the 
3; 497 0998 : bucket, if there are any. Set up the BSD for the 
3; 4498 0999 ' first one. Then loop for each record, allowing the 
3 $35 H+ ! analysis routine to update the BSD. 
; 501 100¢ 5 hp = .r(bsd$l_bufptr); 
; 502 1003 6 if .ppCbkt$w_Treespace] gtru bkt$c_overhdsz then ( 
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5 3s 1004 6 rCbsd$l_offset] = bkt$c_overhdsz; 
> 504 1005 § 
; 209 1006 while (Cif prolog 3 then 
; 506 1007 8 -kpCkey$b_keyref] eqlu 0 then 
: 507 1008 8 anl$3primary_data_record 
> 508 1009 8 else , 
/3; 509 1010 8 anl$3sidr_record 
> 510 1011 8 else 
g ot 1ai6 8 if .kpCkey$b_keyref] eqlu 0 then 
13 218 1013 8 anl$2primary_data_record 
}s 31 1014 8 else : 
> «514 1015 6 anl$2sidr_record) (r,k,false)) do; 
13 319 1016 5 ); 
; 516 1017 5 
; ol 1018 5 ! Decrement the count of possible buckets. If it 
; 36 1019 5 ! goes to zero, then there is a loop in the data 
3; 319 1020 5 ! Bucket structure. 
3 520 1021 5 
; Sey 1os6 6 if decrement(bucket_count) Lss 0 then ( 
3 Bee 1023 6 anl$format_error(anlrms$_bktloop,.rfbsd$l_vbn],.kp[key$b_keyref]); 
s See 1024 6 signal (anTrms$_unwind); 
> 524 1025 5 ); 
3 Deo 1026 5 : : : 
; 96 1027 5 ! The following absurdity determines when we are 
; 527 1028 5 ! done checking data buckets on this iteration. 
|3 328 9 5 : If we're at the highest key in the index, we check 
3; Dey 1030 5 : all remaining buckets. If not, then we check 
3 eet 193) é ! buckets until we ‘‘catch up’’ to the index entry. 
; Dm 1033 6 if ntghast kee then ( 
s 339 1034 6 exitif(not .another_bucket); 
> 534 1035 5 delse — 
; $35 1036 6 if .rlbsd$l_vbn] eqlu .down_vbn then ( 
; 536 1037 6 exitloop; 
- or 1038 5 Yelse — 
$ jee 1039 6 if not .another_bucket then ( : 
; 3 1040 6 anl$format_error(anlrms$_missingbkt,.blbsd$l_vbn],.down_vbn) 
; 540 1041 6 signal (anTrms$_unwind); 
> 541 Hog 5 ); 
s phe 1043 5 
; 543 1044 4 os 
> 544 1045 4 
3; «545 1046 4 anl$bucket(r,-1); 
; 546 1047 : 
3; 547 1048 7 
; 548 1049 ! Continue on to the next index record. 
3; 549 1050 3 : 
3 350 1051 2.) while .another_record; 
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55 105 ! Free up bucket buffers. 
288 1988 r 
554 1054 anl$bucket(b,-1); 
555 1055 if .level eqlu -kplkey$b_ rootlev] then 
556 1056 anl bucket (d,- 1); 
557 1057 
558 1058 return; 
559 1059 
560 1060 1 end; 
-PSECT S$OWNS$,NOEXE,2 
00000 BUCKET. COUNT: 
-BLKB 4 
00004 D: -BLKB 24 
Fe D 
-PSECT S$CODE$,NOWRT,2 
OFFC 00000 ~ ENTRY 4 RBA AT hil Save R2,R3,R4,R5,- ; 0813 
5€ CO AE 9E 00002 MOVAB =éé cnc : 
04 AE 04 00006 CLRL 4(SP : 0816 
03 0000G CF 81 00009 CMPW ANL$GW_PROLOG, #3 3 
03 12 OOO0E BNEQ 1$ 3 
04 AE D6 00010 INCL P) 3 
58 08 AC 00 00013 1$: MOVL KEY_BSD, R11 ; 0817 
56 Oc AB 08 AB C1 069017 ADDL3 8(RT1), 12(R11), KP 3; 0835 
6— 4 00010 CLRL (SP) ; 0840 
0c AC 09 A6 08 00 ED OO01F CMPZV #0, #8, 9(KP), LEVEL ‘ 
3C 12 00026 BNEQ 3$ 3 
6E D6 00028 INCL (SP) 3 
51 0000G CF D0 OQ002A OVL yA} be FAT, R1 ; 0847 
50 OA A6 9A ru MOVZBL 10(KP)> RO- 3; 0848 
50 0B A6 91 00033 PB WicKP): RO 3 
04 1€ 00037 EQU «2S 3 
50 0B A6 9A 00039 MOVZBL 11(KP), RO 3 
0000" CF 04 Al 50 C7 00030 2$: DIVL RO, 4(R1), BUCKET_COUNT é 
18 00 6E 00 2C 00044 MOVCS #0, (SP), #0, #247 D ; 0855 
0000" CF 00049 : 
0000" CF 0B <A6 9B 0004 MOVZBW 11(KP), D+2 : 0856 
0000" CF 54 A6 00 0005 VL B4(KP), D+4 ; 0857 
04 AB DD 0005 PUSHL 4(R11) ; 0858 
0000" CF 9F 0005B PUSHAB C 3 
0000G CF 02 FB FH CALL eee ANLSBUCKET F 
18 00 6E 8 3 2c Baes 3$: MOVC #0, (SP), #0, #24, B ; 0864 
2A AE A A6 98 00068 MOVZBW 10(KP), B+2 ; 0865 
2c AE 04 AC D 0070 MOVL VBN, B+4 3; 0866 
7E p4 0075 RL = (SP) : 0867 
2c A F 00077 PUSHAB ; 
00006 cf 02 FB QOO7A CALLS #2, ANLSBUCKET ; 
9 34 AE DO 0007F MOVL ®+{2, HP > 0868 
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1F 0000 CF £4 0008 SOBGEQ YCKET. COUNT, 4$ : 0873 
7E $3" A6 9A 0088 MOVZBL Bye + =(SPS + 0874 
04 AC 0D 0008C PUSHL san : 
000000006 8F DD O008F PUSHL ee BKTLOOP : 
0000G CF 3 FB 00095 CALLS #3, A ML SFORRAT ERROR : 
000000006 8F oD B009A PUSHL PANLANSS UNWINB 3 0875 
000000006 00 1 FB 00 Ag CALLS #1, C1885] GNAL : 
18 00 6E£ - 00 2c S00A7 4$: MovCS #0, (SP), #0, #24, + 0886 
10 AE 38 AE 7D aon mova + 0887 
18 «AE 0 AE DO 0008 MOVL Fig! T+8 : 
24 «AE 3c AE CO 00088 MOVL F420, +20 : 
7E D4 000BD RL : 
16 AE 9F OO0BF PUSHAB a : 
00006 CF 02 FB 000Ce CALLS #2, ANLSBUCKET : 
19 04 AE €9 000C BLBC 4 4=_—«a&& (SP), 5$ : 0888 
7E D4 000CB CLRL =(SP) + 0889 
0c AC DD 000CD PUSHL LEV EL : 
7E 10 Ab 01 00 EF 00000 EXTZV #0, 51, 16(KP), =(SP) : 
7E 15 A6 9A 00006 MOVZBL aT tke): -(SP) : 
20 AE OF 000A PUSHAB H : 
00006 CF 05 FB 000DD CALLS #5, ANL$3BUCKET_HEADER : 
1D 11 OO0E2 BRB 8$ : 
7E D4 OO0ES 58: CLRL -(SP) : 0891 
OC AC DD OO0E6 PUSHL LEVEL + 0892 
01 OC AC D1 000E9 CMPL LEVEL, #1 : 0891 
06 12 O00ED BNEQ 6$ : 
7E 07 Ab 9A OOOEF MOVZBL 7(KP), =(SP) : 
04 11 OOOF3 BRB 7$ : 
7E 06 A6 9A 000FS 68: MOVZBL 6(KP), =(SP) : 0892 
1C AE OF 000F9 7$: PUSHAB H : 0891 
00006 CF 04 FB OO0FC CALLS #4, ANL$2BUCKET_HEADER : 
7E 01 CE 00101 8s: MNEGL #1. =(SP) : 0893 
16 AE SF 00104 PUSHAB H 3 
00006 CF 02 FB 00107 CALLS #2, ANLS$BUCKET : 
50 OD a9 91 01 EF 0010¢ EXTZV #1, #1, 13(HP), RO : 0899 
0 gf CO 00112 ADDL2 (SP), RO : 
1B 0 €9 00115 BLBC = RO, ‘9$ ; 
2c AE DD 00118 PUSHL F+4 : 0900 
000000006 8F DD 0011B PUSHL #ANLRMS$ BADBKTROOTBIT : 
00006 CF 02 FB 00121 CALLS #2, ANLS$FORMAT ERROR ; 
000000006 8F DD 00126 PUSHL #ANLRMS$ Dean : 0901 
000000006 00 01 FB 0012C CALLS #1, L IGNAL : 
30 AE OE DO 00133 98: MOVL #14, B+8 > 0908 
3C AE OG 001 7 CLRL_ B+2 : 0909 
58 34 AE 30 AE Cc} 0013A 108: ADDL3 B+8, B+12, RP : 0917 
25 04 AE €E9 00140 BLBC. 4(SP), 11% : 0918 
51 3c OCA 01 C1 00144 ADDL3 #1, 8420, R1 : 0919 
50 Op Ag 02 03 EF 00149 EXTZ2vV #3. #2, 13(HP), RO : 
50 02 CO 0014F ADDL2 #2. RO : 
50 1 C4 O13¢ MULL2 RI, RO ; 
50 38 AE 50 ¢3 0015 SUBL3 RO B+ 16. RO : 
57 FC AO 3 00134 MOVAB -4(RO), VP ; 
07 04 «AE 7 015 BLBC 4(SP), 11$ : 0925 
50 00006 CF 3 0016 MOVAB ANLS3INDEX_RECORD, RO : 
50 0000G CF 9E 00169 11% MOVAB  ANLS$ZINDEX_RECORD, RO : 
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RMSCHECKB RMSCHECKB = Check a File Structure 
v04-000 ANLSIDX_CHECK_KEY_STUFF = Check Structure of In 
00006 CF 
7E 08 
0000° 
00006 CF 
52 
50 1¢ 
OE 04 
18 «OA 
iS 0% 
15 
50 00006 
50 00006 
15 
50 00006 
| 50 00006 
18 
60 
CB 
| iF 0000° 
| 7E 15 
18 
000000006 
00006 CF 
000000006 
| 000000006 00 
05 08 
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000000006 
| 000000006 00 
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00006 CF 
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35$: 


36$: 


37$: 
38$: 


39$: 
408: 
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ANALY2. §Rei RMSCHECKB.B52;1 


ANL$3BUCKET_HEADER 


P) 
P), =<SP) 


4, ANL$2BUCKET HEADER 
RO, ANOTHER. BUCRET 


eeMeS #14 

4$ 
#14, R+B 
4(SP), 31$ 

KP) 
ANLS3PRIMARY_DATA_RECORD, RO 
ANL$3SIDR_RECORD, RO 

1(KP) 
ANLS$2PRIMARY_DATA_RECORD, RO 
ANL$2SIDR_RECORD, RO 
=(SP) 
R11 
R 
#3, (RO) 


gucxer COUNT 35$ 
21 (KP P)7 =(SPS 


Re 
#ANLRMS$_BKTLOOP 
#3, WA SFORAAT ERROR 
#ANLRMS$_UNWIND 
#1, CT IBSS1GNAL 

(SP), 36$ 
ANOTHER_BUCKET, 37$ 
R+4, DOWN_VBN 
ANOTHER BUCKET, 37$ 
DOWN_VBN 


B+ 
geet MISSINGBKT 


#3, ANLSFORMAT_ERROR 
RANLANSS ONUI ND 
LIBSSIGNAL 
#1, -(SP) 


R 
#2, ANLS$BUC 
ANOTHER RECORD, 40$ 
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#1, -(SP) 
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RMSCHECKB RMSCHECKB = Check a File Structu 18-5 Sep AX-11 Bliss-32 V4.0-7 Page 24 
v04-000 ANLSIDX_CHECK_KEY_ gu FF theck “Structure of In 14-Sep 71982 90: Q}: 88 ANALYZ.SRCIJRMSCHECKB. 8 é:1 . (8) 
7E gE 0309 MNEGL #1, =(SP) : 1056 
0000° } F 0030C PUSHAB D 3 
0000G CF 02 FB 00310 CALLS #2, ANLSBUCKET : 
04 00315 41$: RET 3; 1060 
|; Routine Size: 790 bytes, Routine Base: $CODE$ + 0172 
s 36} 1061 1 
3 See 1062 0 end eludom 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: $CODES 1160 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 28 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
aie ne ee i i eS Symbols ------=-- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 33 0 1000 00:01.7 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RMSCHECKB/0BJ=OBJ$:RMSCHECKB MSRC$:RMSCHECKB/UPDATE=(ENHS: RMSCHECKB) 


18937 
302 pages 
tion Complete 


1160 cgge + 28 data bytes 


Elapsed Tine: 01:23.2 
Lines/CPU Min: 
Lexemes/CPU-Min: 
poneey Used: 
Compila 
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